home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / Controls.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  17.9 KB  |  565 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        Controls.mod
  3.  
  4.      Contains:    Control Manager interfaces
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$IF UNDEFINED OLDROUTINENAMES*)
  21. (*$SET OLDROUTINENAMES FALSE*)
  22. (*$END*)
  23. (*$TAGS-*)
  24. (*$CALLING PASCAL*)
  25. MODULE Controls;
  26.  
  27. IMPORT SYSTEM, Types, Quickdraw, Menus;
  28.  
  29. (* $PUSH*)
  30. (* $ALIGN MAC68K*)
  31. (* $LibExport+*)
  32. (*$IF UNDEFINED STRICT_CONTROLS *)
  33. (*$SET STRICT_CONTROLS FALSE*)
  34. (*$END*)
  35.  
  36. CONST
  37.     pushButProc*                    = 0;
  38.     checkBoxProc*                = 1;
  39.     radioButProc*                = 2;
  40.     scrollBarProc*                = 16;
  41.     popupMenuProc*                = 1008;
  42.  
  43.     kControlUsesOwningWindowsFontVariant* = ASH(1,3);        (* Control uses owning windows font to display text*)
  44.  
  45. (*$IF OLDROUTINENAMES *)
  46.     useWFont*                    = 8;
  47.  
  48. (*$END*)
  49.     
  50. TYPE
  51.     ControlPartCode* = Types.SInt16;
  52.  
  53.  
  54. CONST
  55.     kControlNoPart*                = 0;
  56.     kControlLabelPart*            = 1;
  57.     kControlMenuPart*            = 2;
  58.     kControlTrianglePart*        = 4;
  59.     kControlButtonPart*            = 10;
  60.     kControlCheckBoxPart*        = 11;
  61.     kControlRadioButtonPart*        = 11;
  62.     kControlUpButtonPart*        = 20;
  63.     kControlDownButtonPart*        = 21;
  64.     kControlPageUpPart*            = 22;
  65.     kControlPageDownPart*        = 23;
  66.     kControlIndicatorPart*        = 129;
  67.     kControlDisabledPart*        = 254;
  68.     kControlInactivePart*        = 255;
  69.  
  70. (*$IF OLDROUTINENAMES *)
  71.     inLabel*                        = 1;
  72.     inMenu*                        = 2;
  73.     inTriangle*                    = 4;
  74.     inButton*                    = 10;
  75.     inCheckBox*                    = 11;
  76.     inUpButton*                    = 20;
  77.     inDownButton*                = 21;
  78.     inPageUp*                    = 22;
  79.     inPageDown*                    = 23;
  80.     inThumb*                        = 129;
  81.  
  82. (*$END*)
  83.     kControlCheckboxUncheckedValue* = 0;
  84.     kControlCheckboxCheckedValue* = 1;
  85.     kControlCheckboxMixedValue*    = 2;
  86.  
  87. (*_________________________________________________________________________________________________________*)
  88. (**)
  89. (* • RADIO BUTTON VALUES*)
  90. (**)
  91. (*_________________________________________________________________________________________________________*)
  92.     kControlRadioButtonUncheckedValue* = 0;
  93.     kControlRadioButtonCheckedValue* = 1;
  94.     kControlRadioButtonMixedValue* = 2;
  95.  
  96.     popupFixedWidth*                = ASH(1,0);
  97.     popupVariableWidth*            = ASH(1,1);
  98.     popupUseAddResMenu*            = ASH(1,2);
  99.     popupUseWFont*                = ASH(1,3);
  100.  
  101. (**)
  102. (* Menu label styles for the System 7 pop-up menu *)
  103. (**)
  104.     popupTitleBold*                = ASH(1,8);
  105.     popupTitleItalic*            = ASH(1,9);
  106.     popupTitleUnderline*            = ASH(1,10);
  107.     popupTitleOutline*            = ASH(1,11);
  108.     popupTitleShadow*            = ASH(1,12);
  109.     popupTitleCondense*            = ASH(1,13);
  110.     popupTitleExtend*            = ASH(1,14);
  111.     popupTitleNoStyle*            = ASH(1,15);
  112.  
  113. (**)
  114. (* Menu label justifications for the System 7 pop-up menu*)
  115. (**)
  116.     popupTitleLeftJust*            = $00000000;
  117.     popupTitleCenterJust*        = $00000001;
  118.     popupTitleRightJust*            = $000000FF;
  119.  
  120. (*_________________________________________________________________________________________________________*)
  121. (**)
  122. (* • CONTROL DRAGGRAYRGN CONSTANTS*)
  123. (**)
  124.     noConstraint*                = Quickdraw.kNoConstraint;
  125.     hAxisOnly*                    = 1;
  126.     vAxisOnly*                    = 2;
  127.  
  128. (*_________________________________________________________________________________________________________*)
  129. (**)
  130. (* • CONTROL COLOR TABLE PART CODES*)
  131. (**)
  132.     cFrameColor*                    = 0;
  133.     cBodyColor*                    = 1;
  134.     cTextColor*                    = 2;
  135.     cThumbColor*                    = 3;
  136.  
  137. (*_________________________________________________________________________________________________________*)
  138. (**)
  139. (* • CONTROL TYPE DECLARATIONS*)
  140. (**)
  141. (*_________________________________________________________________________________________________________*)
  142. (**)
  143. (* Define ControlRef and ControlHandle*)
  144. (**)
  145. (*$IF STRICT_CONTROLS *)
  146.     
  147. TYPE
  148.     ControlRef* = Types.Ptr;
  149.  
  150.     ControlHandle* = ControlRef;
  151.  
  152. (*$ELSE*)
  153.     
  154. TYPE
  155.     ControlPtr* = POINTER TO ControlRecord;
  156.     ControlHandle* = HANDLE TO ControlRecord (*ΔΔ POINTER TO ControlPtr*);
  157.  
  158.     ControlRef* = ControlHandle;
  159.  
  160. (*$END*)
  161.     ControlActionProcPtr* = (*ΔΔ Types.ProcPtr;*) PROCEDURE (theControl: ControlRef; partCode: ControlPartCode);
  162.     ControlActionUPP* = Types.UniversalProcPtr;
  163.  
  164.     CtlCTab* = RECORD
  165.         ccSeed*:                    Types.SInt32;
  166.         ccRider*:                Types.SInt16;
  167.         ctSize*:                    Types.SInt16;
  168.         ctTable*:                ARRAY 4 (*ΔΔ[0..3]ΔΔ*) OF Quickdraw.ColorSpec;
  169.     END;
  170.  
  171.     CCTabPtr* = POINTER TO CtlCTab;
  172.     CCTabHandle* = HANDLE TO CtlCTab (*ΔΔ POINTER TO CCTabPtr*);
  173.  
  174. (*$IF NOT STRICT_CONTROLS *)
  175.     ControlRecord* = (*ΔΔPACKEDΔΔ*) RECORD
  176.         nextControl*:            ControlRef;
  177.         contrlOwner*:            Quickdraw.WindowRef;
  178.         contrlRect*:                Types.Rect;
  179.         contrlVis*:                Types.UInt8;
  180.         contrlHilite*:            Types.UInt8;
  181.         contrlValue*:            Types.SInt16;
  182.         contrlMin*:                Types.SInt16;
  183.         contrlMax*:                Types.SInt16;
  184.         contrlDefProc*:            Types.Handle;
  185.         contrlData*:                Types.Handle;
  186.         contrlAction*:            ControlActionUPP;
  187.         contrlRfCon*:            Types.SInt32;
  188.         contrlTitle*:            Types.Str255;
  189.     END;
  190.  
  191. (*_________________________________________________________________________________________________________*)
  192. (**)
  193. (* • AUXILLARY CONTROL RECORD STRUCTURE*)
  194. (**)
  195. (*_________________________________________________________________________________________________________*)
  196.     AuxCtlRec* = RECORD
  197.         acNext*:                    Types.Handle;
  198.         acOwner*:                ControlRef;
  199.         acCTable*:                CCTabHandle;
  200.         acFlags*:                Types.SInt16;
  201.         acReserved*:                Types.SInt32;
  202.         acRefCon*:                Types.SInt32;
  203.     END;
  204.  
  205.     AuxCtlPtr* = POINTER TO AuxCtlRec;
  206.     AuxCtlHandle* = HANDLE TO AuxCtlRec (*ΔΔ POINTER TO AuxCtlPtr*);
  207.  
  208. (*_________________________________________________________________________________________________________*)
  209. (**)
  210. (* • POP-UP MENU PRIVATE DATA STRUCTURE*)
  211. (**)
  212. (*_________________________________________________________________________________________________________*)
  213.     PopupPrivateData* = RECORD
  214.         mHandle*:                Menus.MenuHandle;
  215.         mID*:                    Types.SInt16;
  216.     END;
  217.  
  218.     PopupPrivateDataPtr* = POINTER TO PopupPrivateData;
  219.     PopupPrivateDataHandle* = HANDLE TO PopupPrivateData (*ΔΔ POINTER TO PopupPrivateDataPtr*);
  220.  
  221. (*$END*)
  222.  
  223. CONST
  224.     uppControlActionProcInfo* = $000002C0; (* PROCEDURE (4 byte param, 2 byte param); *)
  225.  
  226. PROCEDURE NewControlActionProc*(userRoutine: ControlActionProcPtr): ControlActionUPP;
  227.     (*$IF NOT GENERATINGCFM *)
  228.     INLINE PASCAL $2E9F;
  229.     (*$END*)
  230.  
  231. PROCEDURE CallControlActionProc*(theControl: ControlRef; partCode: ControlPartCode; userRoutine: ControlActionUPP);
  232.     (*$IF NOT GENERATINGCFM*)
  233.     INLINE PASCAL $205F, $4E90;
  234.     (*$END*)
  235.  
  236. PROCEDURE NewControl*(theWindow: Quickdraw.WindowRef; (*CONST*)VAR boundsRect: Types.Rect; title: Types.ConstStr255Param; visible: BOOLEAN; value: Types.SInt16; min: Types.SInt16; max: Types.SInt16; procID: Types.SInt16; refCon: Types.SInt32): ControlRef;
  237.     (*$IF NOT GENERATINGCFM*)
  238.     INLINE PASCAL $A954;
  239.     (*$END*)
  240. PROCEDURE GetNewControl*(controlID: Types.SInt16; owner: Quickdraw.WindowRef): ControlRef;
  241.     (*$IF NOT GENERATINGCFM*)
  242.     INLINE PASCAL $A9BE;
  243.     (*$END*)
  244. PROCEDURE DisposeControl*(theControl: ControlRef);
  245.     (*$IF NOT GENERATINGCFM*)
  246.     INLINE PASCAL $A955;
  247.     (*$END*)
  248. PROCEDURE KillControls*(theWindow: Quickdraw.WindowRef);
  249.     (*$IF NOT GENERATINGCFM*)
  250.     INLINE PASCAL $A956;
  251.     (*$END*)
  252. (*_________________________________________________________________________________________________________*)
  253. (*    *)
  254. (* • CONTROL SHOWING/HIDING API'S*)
  255. (**)
  256. (*_________________________________________________________________________________________________________*)
  257. PROCEDURE ShowControl*(theControl: ControlRef);
  258.     (*$IF NOT GENERATINGCFM*)
  259.     INLINE PASCAL $A957;
  260.     (*$END*)
  261. PROCEDURE HideControl*(theControl: ControlRef);
  262.     (*$IF NOT GENERATINGCFM*)
  263.     INLINE PASCAL $A958;
  264.     (*$END*)
  265. (*_________________________________________________________________________________________________________*)
  266. (*    *)
  267. (* • CONTROL DRAWING API'S*)
  268. (**)
  269. (*_________________________________________________________________________________________________________*)
  270. PROCEDURE DrawControls*(theWindow: Quickdraw.WindowRef);
  271.     (*$IF NOT GENERATINGCFM*)
  272.     INLINE PASCAL $A969;
  273.     (*$END*)
  274. PROCEDURE Draw1Control*(theControl: ControlRef);
  275.     (*$IF NOT GENERATINGCFM*)
  276.     INLINE PASCAL $A96D;
  277.     (*$END*)
  278. PROCEDURE UpdateControls*(theWindow: Quickdraw.WindowRef; updateRgn: Quickdraw.RgnHandle);
  279.     (*$IF NOT GENERATINGCFM*)
  280.     INLINE PASCAL $A953;
  281.     (*$END*)
  282. PROCEDURE HiliteControl*(theControl: ControlRef; hiliteState: ControlPartCode);
  283.     (*$IF NOT GENERATINGCFM*)
  284.     INLINE PASCAL $A95D;
  285.     (*$END*)
  286. PROCEDURE TrackControl*(theControl: ControlRef; thePoint: Types.Point; actionProc: ControlActionUPP): ControlPartCode;
  287.     (*$IF NOT GENERATINGCFM*)
  288.     INLINE PASCAL $A968;
  289.     (*$END*)
  290. PROCEDURE DragControl*(theControl: ControlRef; startPt: Types.Point; (*CONST*)VAR limitRect: Types.Rect; (*CONST*)VAR slopRect: Types.Rect; axis: Quickdraw.DragConstraint);
  291.     (*$IF NOT GENERATINGCFM*)
  292.     INLINE PASCAL $A967;
  293.     (*$END*)
  294. PROCEDURE TestControl*(theControl: ControlRef; thePt: Types.Point): ControlPartCode;
  295.     (*$IF NOT GENERATINGCFM*)
  296.     INLINE PASCAL $A966;
  297.     (*$END*)
  298. PROCEDURE FindControl*(thePoint: Types.Point; theWindow: Quickdraw.WindowRef; VAR theControl: ControlRef): ControlPartCode;
  299.     (*$IF NOT GENERATINGCFM*)
  300.     INLINE PASCAL $A96C;
  301.     (*$END*)
  302. (*_________________________________________________________________________________________________________*)
  303. (*    *)
  304. (* • CONTROL MOVING/SIZING API'S*)
  305. (**)
  306. (*_________________________________________________________________________________________________________*)
  307. PROCEDURE MoveControl*(theControl: ControlRef; h: Types.SInt16; v: Types.SInt16);
  308.     (*$IF NOT GENERATINGCFM*)
  309.     INLINE PASCAL $A959;
  310.     (*$END*)
  311. PROCEDURE SizeControl*(theControl: ControlRef; w: Types.SInt16; h: Types.SInt16);
  312.     (*$IF NOT GENERATINGCFM*)
  313.     INLINE PASCAL $A95C;
  314.     (*$END*)
  315. (*_________________________________________________________________________________________________________*)
  316. (*    *)
  317. (* • CONTROL TITLE API'S*)
  318. (**)
  319. (*_________________________________________________________________________________________________________*)
  320. PROCEDURE SetControlTitle*(theControl: ControlRef; title: Types.ConstStr255Param);
  321.     (*$IF NOT GENERATINGCFM*)
  322.     INLINE PASCAL $A95F;
  323.     (*$END*)
  324. PROCEDURE GetControlTitle*(theControl: ControlRef; VAR title: Types.Str255);
  325.     (*$IF NOT GENERATINGCFM*)
  326.     INLINE PASCAL $A95E;
  327.     (*$END*)
  328. (*_________________________________________________________________________________________________________*)
  329. (*    *)
  330. (* • CONTROL VALUE, MIMIMUM, AND MAXIMUM API'S*)
  331. (**)
  332. (*_________________________________________________________________________________________________________*)
  333. PROCEDURE GetControlValue*(theControl: ControlRef): Types.SInt16;
  334.     (*$IF NOT GENERATINGCFM*)
  335.     INLINE PASCAL $A960;
  336.     (*$END*)
  337. PROCEDURE SetControlValue*(theControl: ControlRef; newValue: Types.SInt16);
  338.     (*$IF NOT GENERATINGCFM*)
  339.     INLINE PASCAL $A963;
  340.     (*$END*)
  341. PROCEDURE GetControlMinimum*(theControl: ControlRef): Types.SInt16;
  342.     (*$IF NOT GENERATINGCFM*)
  343.     INLINE PASCAL $A961;
  344.     (*$END*)
  345. PROCEDURE SetControlMinimum*(theControl: ControlRef; newMinimum: Types.SInt16);
  346.     (*$IF NOT GENERATINGCFM*)
  347.     INLINE PASCAL $A964;
  348.     (*$END*)
  349. PROCEDURE GetControlMaximum*(theControl: ControlRef): Types.SInt16;
  350.     (*$IF NOT GENERATINGCFM*)
  351.     INLINE PASCAL $A962;
  352.     (*$END*)
  353. PROCEDURE SetControlMaximum*(theControl: ControlRef; newMaximum: Types.SInt16);
  354.     (*$IF NOT GENERATINGCFM*)
  355.     INLINE PASCAL $A965;
  356.     (*$END*)
  357. (*_________________________________________________________________________________________________________*)
  358. (*    *)
  359. (* • CONTROL VARIANT AND WINDOW INFORMATION API'S*)
  360. (**)
  361. (*_________________________________________________________________________________________________________*)
  362. PROCEDURE GetControlVariant*(theControl: ControlRef): Types.SInt16;
  363.     (*$IF NOT GENERATINGCFM*)
  364.     INLINE PASCAL $A809;
  365.     (*$END*)
  366. PROCEDURE SetControlAction*(theControl: ControlRef; actionProc: ControlActionUPP);
  367.     (*$IF NOT GENERATINGCFM*)
  368.     INLINE PASCAL $A96B;
  369.     (*$END*)
  370. PROCEDURE GetControlAction*(theControl: ControlRef): ControlActionUPP;
  371.     (*$IF NOT GENERATINGCFM*)
  372.     INLINE PASCAL $A96A;
  373.     (*$END*)
  374. (*_________________________________________________________________________________________________________*)
  375. (*    *)
  376. (* • CONTROL ACCESSOR API'S*)
  377. (**)
  378. (*_________________________________________________________________________________________________________*)
  379. PROCEDURE SetControlReference*(theControl: ControlRef; data: Types.SInt32);
  380.     (*$IF NOT GENERATINGCFM*)
  381.     INLINE PASCAL $A95B;
  382.     (*$END*)
  383. PROCEDURE GetControlReference*(theControl: ControlRef): Types.SInt32;
  384.     (*$IF NOT GENERATINGCFM*)
  385.     INLINE PASCAL $A95A;
  386.     (*$END*)
  387. (*$IF NOT STRICT_CONTROLS *)
  388. PROCEDURE GetAuxiliaryControlRecord*(theControl: ControlRef; VAR acHndl: AuxCtlHandle): BOOLEAN;
  389.     (*$IF NOT GENERATINGCFM*)
  390.     INLINE PASCAL $AA44;
  391.     (*$END*)
  392. (*$END*)
  393. PROCEDURE SetControlColor*(theControl: ControlRef; newColorTable: CCTabHandle);
  394.     (*$IF NOT GENERATINGCFM*)
  395.     INLINE PASCAL $AA43;
  396.     (*$END*)
  397.     
  398. TYPE
  399.     ControlDefProcMessage* = Types.SInt16;
  400.  
  401.  
  402. CONST
  403.     drawCntl*                    = 0;
  404.     testCntl*                    = 1;
  405.     calcCRgns*                    = 2;
  406.     initCntl*                    = 3;
  407.     dispCntl*                    = 4;
  408.     posCntl*                        = 5;
  409.     thumbCntl*                    = 6;
  410.     dragCntl*                    = 7;
  411.     autoTrack*                    = 8;
  412.     calcCntlRgn*                    = 10;
  413.     calcThumbRgn*                = 11;
  414.     drawThumbOutline*            = 12;
  415.  
  416. (*_________________________________________________________________________________________________________*)
  417. (*    *)
  418. (* • MAIN ENTRY POINT FOR LONG("CDEF")*)
  419. (**)
  420. TYPE
  421.     ControlDefProcPtr* = (*ΔΔ Types.ProcPtr;*) PROCEDURE (varCode: Types.SInt16; theControl: ControlRef; message: ControlDefProcMessage; param: Types.SInt32): Types.SInt32;
  422.     ControlDefUPP* = Types.UniversalProcPtr;
  423.  
  424. CONST
  425.     uppControlDefProcInfo* = $00003BB0; (* PROCEDURE (2 byte param, 4 byte param, 2 byte param, 4 byte param): 4 byte result; *)
  426.  
  427. PROCEDURE NewControlDefProc*(userRoutine: ControlDefProcPtr): ControlDefUPP;
  428.     (*$IF NOT GENERATINGCFM *)
  429.     INLINE PASCAL $2E9F;
  430.     (*$END*)
  431.  
  432. PROCEDURE CallControlDefProc*(varCode: Types.SInt16; theControl: ControlRef; message: ControlDefProcMessage; param: Types.SInt32; userRoutine: ControlDefUPP): Types.SInt32;
  433.     (*$IF NOT GENERATINGCFM*)
  434.     INLINE PASCAL $205F, $4E90;
  435.     (*$END*)
  436. (*_________________________________________________________________________________________________________*)
  437. (*    *)
  438. (* • CONSTANTS FOR DRAWCNTL MESSAGE PASSED IN PARAM*)
  439. (**)
  440. (*_________________________________________________________________________________________________________*)
  441.  
  442. CONST
  443.     kDrawControlEntireControl*    = 0;
  444.     kDrawControlIndicatorOnly*    = 129;
  445.  
  446. (*_________________________________________________________________________________________________________*)
  447. (*    *)
  448. (* • CONSTANTS FOR DRAGCNTL MESSAGE PASSED IN PARAM*)
  449. (**)
  450. (*_________________________________________________________________________________________________________*)
  451.     kDragControlEntireControl*    = 0;
  452.  
  453. (*_________________________________________________________________________________________________________*)
  454. (*    *)
  455. (* • DRAG CONSTRAINT STRUCTURE PASSED IN PARAM FOR THUMBCNTL MESSAGE (IM I-332)*)
  456. (**)
  457. (*_________________________________________________________________________________________________________*)
  458.  
  459. TYPE
  460.     IndicatorDragConstraint* = RECORD
  461.         limitRect*:                Types.Rect;
  462.         slopRect*:                Types.Rect;
  463.         axis*:                    Quickdraw.DragConstraint;
  464.     END;
  465.  
  466.     IndicatorDragConstraintPtr* = POINTER TO IndicatorDragConstraint;
  467.     IndicatorDragConstraintHandle* = HANDLE TO IndicatorDragConstraint (*ΔΔ POINTER TO IndicatorDragConstraintPtr*);
  468.  
  469. (*_________________________________________________________________________________________________________*)
  470. (**)
  471. (* • OLD ROUTINE NAMES*)
  472. (**)
  473. (*   These are provided for compatiblity with older source bases.  It is recommended to not use them since*)
  474. (*     they may removed from this interface file at any time.*)
  475. (**)
  476. (*_________________________________________________________________________________________________________*)
  477. (*$IF OLDROUTINENAMES *)
  478.  
  479. CONST
  480.     kNoHiliteControlPart*        = 0;
  481.     kInLabelControlPart*            = 1;
  482.     kInMenuControlPart*            = 2;
  483.     kInTriangleControlPart*        = 4;
  484.     kInButtonControlPart*        = 10;
  485.     kInCheckBoxControlPart*        = 11;
  486.     kInUpButtonControlPart*        = 20;
  487.     kInDownButtonControlPart*    = 21;
  488.     kInPageUpControlPart*        = 22;
  489.     kInPageDownControlPart*        = 23;
  490.     kInIndicatorControlPart*        = 129;
  491.     kReservedControlPart*        = 254;
  492.     kControlInactiveControlPart*    = 255;
  493.  
  494. (*$END*)
  495. (*$IF OLDROUTINENAMES *)
  496.  
  497. PROCEDURE SetCTitle*(theControl: ControlRef; title: Types.ConstStr255Param);
  498.     (*$IF NOT GENERATINGCFM*)
  499.     INLINE PASCAL $A95F;
  500.     (*$END*)
  501. PROCEDURE GetCTitle*(theControl: ControlRef; VAR title: Types.Str255);
  502.     (*$IF NOT GENERATINGCFM*)
  503.     INLINE PASCAL $A95E;
  504.     (*$END*)
  505. PROCEDURE UpdtControl*(theWindow: Quickdraw.WindowRef; updateRgn: Quickdraw.RgnHandle);
  506.     (*$IF NOT GENERATINGCFM*)
  507.     INLINE PASCAL $A953;
  508.     (*$END*)
  509. (*$IF NOT STRICT_CONTROLS *)
  510. PROCEDURE SetCtlValue*(theControl: ControlRef; theValue: INTEGER);
  511.     (*$IF NOT GENERATINGCFM*)
  512.     INLINE PASCAL $A963;
  513.     (*$END*)
  514. PROCEDURE GetCtlValue*(theControl: ControlRef): INTEGER;
  515.     (*$IF NOT GENERATINGCFM*)
  516.     INLINE PASCAL $A960;
  517.     (*$END*)
  518. PROCEDURE SetCtlMin*(theControl: ControlRef; minValue: INTEGER);
  519.     (*$IF NOT GENERATINGCFM*)
  520.     INLINE PASCAL $A964;
  521.     (*$END*)
  522. PROCEDURE GetCtlMin*(theControl: ControlRef): INTEGER;
  523.     (*$IF NOT GENERATINGCFM*)
  524.     INLINE PASCAL $A961;
  525.     (*$END*)
  526. PROCEDURE SetCtlMax*(theControl: ControlRef; maxValue: INTEGER);
  527.     (*$IF NOT GENERATINGCFM*)
  528.     INLINE PASCAL $A965;
  529.     (*$END*)
  530. PROCEDURE GetCtlMax*(theControl: ControlRef): INTEGER;
  531.     (*$IF NOT GENERATINGCFM*)
  532.     INLINE PASCAL $A962;
  533.     (*$END*)
  534. (*$END*)
  535. PROCEDURE SetCRefCon*(theControl: ControlRef; data: LONGINT);
  536.     (*$IF NOT GENERATINGCFM*)
  537.     INLINE PASCAL $A95B;
  538.     (*$END*)
  539. PROCEDURE GetCRefCon*(theControl: ControlRef): LONGINT;
  540.     (*$IF NOT GENERATINGCFM*)
  541.     INLINE PASCAL $A95A;
  542.     (*$END*)
  543. PROCEDURE SetCtlAction*(theControl: ControlRef; actionProc: ControlActionUPP);
  544.     (*$IF NOT GENERATINGCFM*)
  545.     INLINE PASCAL $A96B;
  546.     (*$END*)
  547. PROCEDURE GetCtlAction*(theControl: ControlRef): ControlActionUPP;
  548.     (*$IF NOT GENERATINGCFM*)
  549.     INLINE PASCAL $A96A;
  550.     (*$END*)
  551. PROCEDURE SetCtlColor*(theControl: ControlRef; newColorTable: CCTabHandle);
  552.     (*$IF NOT GENERATINGCFM*)
  553.     INLINE PASCAL $AA43;
  554.     (*$END*)
  555. PROCEDURE GetCVariant*(theControl: ControlRef): INTEGER;
  556.     (*$IF NOT GENERATINGCFM*)
  557.     INLINE PASCAL $A809;
  558.     (*$END*)
  559. (*$END*)
  560.  
  561. (* $ALIGN RESET*)
  562. (* $POP*)
  563.  
  564.  END Controls.
  565.